home *** CD-ROM | disk | FTP | other *** search
/ ZAM 3 / ZAM 3.adf / Source / Ascii.AMOS / Ascii.amosSourceCode
Encoding:
AMOS Source Code  |  1990-12-11  |  690 b   |  28 lines
  1. '      ASCII READER PROGRAM  
  2. '
  3. '         Programmed By
  4. '
  5. '      HAWK IN JANUARY 1993  
  6. '
  7.  
  8. Screen Open 0,640,200,2,Hires
  9. Z$="Df0:Articles/Hawk.Message"
  10. Open In 1,Z$
  11. Reserve As Work 10,Lof(1)
  12. Close 1
  13. Bload Z$,Start(10)
  14.  
  15. For T=1 To Length(10)
  16.    If Peek(Start(10)+T)=10
  17.       Print Chr$(13)
  18.    Else 
  19.       Print Chr$(Peek(Start(10)+T));
  20.    End If 
  21. Next T
  22.  
  23. ' When you get down to it, it is infact a VERY short program! I'm not  
  24. ' gonna tell you how to paginate it, how to change the colors etc, but 
  25. ' with a bit of knowledge and a look through some of the other code
  26. ' with this issue, it shouldn't be too difficult to do!
  27.  
  28. '                                                      HAWK 30-1-93